<%
	'No variables declared to speed it up!
	filing = Request.QueryString("filing")
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set OutStream = fs.OpenTextFile(Server.MapPath("/") & "/logs/" &  "activity.txt", 8, True)
	OutStream.Write vbCrLf & Session("Name") & "," & Now() & "," & filing
	OutStream.Close
	response.Redirect("http://www.sec.gov/Archives/edgar/data/" & filing & "/Financial_Report.xls")
%>